Преобразовать двухмерный массив в одномерный — Visual Basic(Бейсик)

1
2
3
4
5
6
7
8
9
Dim iMassiv As Variant, iNewMassiv As Variant
  
iMassiv = Range("A1:A10").Value
iNewMassiv = Application.Transpose(iMassiv)
Если нет необходимости в использовании первой переменной, содержащей массив значений указанного диапазона, то транспонировать массив можно напрямую :
 
iMassiv = Application.Transpose(Range("A1:A10").Value)
  
iMassiv = [Transpose(A1:A10)]

Leave a Comment